print "Press CRTL-C to skip to next item\n";
$SIG{INT} = sub { print "skipping"; next LOOP; };
LOOP: for $item (@BigList) {
    print "Slowly processing $item..."; 
    # etc
}