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

##</code><code>##

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