Help for this page
print "\n$fillarr[0]\t$fillarr[1]\t$fillarr[3]\t$fillarr[4]\t$fillarr[ +5]\t$fillarr[14]\t";
print "\n", join "\t", @fillarr[0, 1, 3, 4, 5, 14];