perl print an array

my @array = (1, 2, 3, 4, 5);
print join(", ", @array) . "\n";