#!/usr/bin/env perl

use strict;
use warnings;
use Path::Tiny;
use Data::Dump;
use feature qw(say);

say q(Please enter id file);

chomp( my $file = <STDIN> );

my @data = path($file)->lines( { chomp => 1 } );

dd \@data;

__END__