Select Code to Download

sub btween (\%$$)
  {
...
  }

print "There are ", btween(%hash, 0, 60), " clips between 0-1 minutes\
+n";

sub btween (\%$$)
  {
...

my @result = btween(%hash, 0, 60);
print "There are $result[0] clips between 0-1 minutes, and their names
+ are: $result[1]\n";