#!/usr/bin/perl
use strict;
use warnings;

my $File = '85635';

my @Lines = read_file($File);
print_lines(\@Lines);
#use Data::Dumper; print Dumper \@Lines;

sub read_file {
    my ($file) = @_;

    local $/ = chr(0x0d);

    open IN, $file or die $!;
    chomp(my @lines = <IN>);
    close IN or die $!;

    return @lines;
}

sub print_lines {
    my ($lines) = @_;

    for (@$lines) {
        print $_, "\n";
    }
}