#!/usr/bin/perl
use strict;
my @array = (42, 1138, 96);
@array ,= 433;
print join(', ', @array), "\n";