> > > my $i=0;
> > > while (<DATA>)
> > > {
> > > @fields = unpack("A10A10A7", $_);
> >
> > my @fields = unpack 'A10A10A7', $_;
> >
> >
> > > $records{$i} = {
> > ^^^^
> > Why not just use an array?
>
> different strokes for different strokes :)Now that reads a bit weird. Folks, i meant folks...but i guess u knew that. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
