Select Code to Download

use DataExtract::FixedWidth;
use IO::File;
...
    when ( 2 ) { say $arr->[2] }
  }
}

my $de = DataExtract::FixedWidth->new({
 heuristic => \@tuples
...
    when ( 2 ) { say $hash->{baz} }
  }
}