Welcome to the Monastery, cluelessPerlMan.

Are you sure this code is the one you are attempting to run?

push /@TTTPLOT, /@header;

That does not look like valid perl. I suspect that the actual code has backslashes where you have slashes. In which case you should not be attempting to dereference @TTTPLOT. Use something like this instead:

push @TTTPLOT, \@header;
[download]

If that makes the first error vanish, then you can also try changing line 69 to

push @{$TTTPLOT[$index]}, \@twenty_SFs;
[download]