sub foo {
    my $var=shift;

}