#!/usr/bin/perl

use strict;
use warnings;

open("handle", 'numbers.txt') or die('unable to open numbers file\n');
$/ = ' ';

OUT: for my $line (<handle>) {
        for (my $a = 0; $a < 5; $a++) {
            chomp $line;
            $line += 1;
            print "$line ";
                next OUT;
        }
}
close("handle");