Changing en passant

/usr/man/man3/foo.1 changes to /usr/man/cat3/foo.1

($catpage  = $manpage)  =~ s/man(?=\d)/cat/;

Use foreach() Loops
@bindirs = qw( /usr/bin /bin /usr/local/bin );
for (@libdirs = @bindirs) { s/bin/lib/ }

Use Hashes of Records, not Parallel Arrays
for $his ($people{"Jason"}) {
$his->{AGE} = 23;
$his->{DAD} = "Herbert";
}