use FindBin qw($Bin); chdir($Bin);

$t=time;
for(1..150000)
{
    #&a;
         &b;
}
$zeit = time - $t;
print "Zeit: $zeit\n";



sub a
{
      opendir(DIR,'t') or die $!;
        @files = grep{$_ !~ /^\.\.?$/}readdir(DIR);
        closedir DIR;
}

sub b
{
    opendir(DIR,'t') or die $!;
    @files = readdir(DIR);
    closedir DIR; shift(@files);shift(@files);
}