#! /usr/bin/perl -w
use strict;
use PDL;

open PROFILE, "profile" or die "Could not open\n";
my $array_ref;
while (<PROFILE>) {
    push (@{$array_ref}, $_);
}
my $pdl = pdl($array_ref);
print "$pdl\n":