You're not doing anything with IN & OUT so you're not actually reading your input file.

Why not start simply with a while loop, and ignore map and grep until you get your algorithm working.

while (my $line = <IN>) {
   chomp $line;
   next unless $line;
   # do stuff with each line here
}
[download]

BTW what did you think "printf $destination ..." was going to do?