sub dosomething{
    my ($foo, $bar) = @_;