In  sub dofn  { you write 'var1', 'var2', 'var3'

'var1', 'var2', 'var3' is spelled @array

my @fn;
push @{ $fn[1] }, 1.11;
push @{ $fn[2] }, 2.1;
push @{ $fn[3] }, 3.1;
Data::Dump::dd(\@f);
[download]