sub reverse_array {
  my ($array) = @_;
  @reversed_array = ();
  for $element (@$array) {
    unshift (@reversed_array, $element);
  }
  return @reversed_array;
}

print join(", ", reverse_array(\@ARGV)) . "\n";