sub dosomething{
    my $foo = shift;
    my $bar = shift;