#!/usr/bin/perl

go ( "foo", "bar", "baz" );

sub go {
  my ($data) = @_;
  print $data;
}