Select Code to Download

$ perl -d dbg.pl

...
Enter h or `h h' for help, or `man perldebug' for more help.
main::(dbg.pl:5):       my $t;
  DB<1>

  DB<1> b sub_find_last
  DB<2> r
main::sub_find_last(dbg.pl:31):         my $X = shift;
  DB<2>

  DB<2> n
main::sub_find_last(dbg.pl:32):         return if !defined $X;
...
        main::sub_find_last(undef) called at dbg.pl line 8

  DB<3>

if($select_sheet->Range("A1")->{Value} =~ /Step/i)