Select Code to Download

#!/usr/bin/perl -w

...
  print map("$_->[0] to $_->[1]\n", @$hist), "\n"
    if grep($_, @$st) == 1 and $st->[$orig] == 1;
}

  print map("$_->[0] to $_->[1]\n", @$hist), "\n"
    if grep($_, @$st) == 8 and !$ok;