while (<$hndl>) {
    printf "%7d  %s\n", $., $_;
}