#!/usr/local/bin/perl -w

@a = (1, 3, 5, 7);
print "The first ".@a." values are @a\n";

$" = ",";
print "The first ".@a." values are @a\n";