#! /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":


##</code><code>##


Argument "\x{30}\x{2e}..." isn't numeric in subroutine entry at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/PDL/Core.pm line 570, <PROFILE> line 1.