Select Code to Download

Peter   3
Peter   15
...
John    1
John    7
Mike    4

use Tie::File::AnyData;

...
       ## Use the tied array

untie @data;

use Tie::File::AnyData;
tie my @data, 'Tie::File::AnyData', $file;
       ## Use the tied array as with Tie::File

Peter   3
Peter   15
...
John    1
John    7
Mike    4

use Tie::File::AnyData::CSV;

tie my @arr, 'Tie::File::AnyData::CSV', $file or die;
print "$arr[0]\n";

Peter   3
Peter   15
Peter   5

use Tie::File::AnyData::Bio::Fasta;

...
use List::Util qw/shuffle/;
my @out = (shuffle @fastaArray)[0..9];