Help for this page
my $B = 5; my $A = 3; ... } print for @lines;
keep 1 discard B5 ... discard A2 discard A3 keep 5
keep 1 keep 2 keep 3 keep 4 keep 5