#!/usr/bin/perl

use strict;
use warnings;

readfh( *main::DATA );

sub readfh {
    my ($fh) = @_;
    while ( my $line = <$fh> ) {
        chomp $line;
        print ">>$line<<\n";
    }
}

__DATA__
1
2
3
5
72
13