$var = 'some sort of data';
&My_Sub($var);

sub My_Sub
{
  my($data) = @_;
 Print $data . "\n";
}

output:

some sort of data