You could use Devel::Symdump to dump out all of the scalars, however you would need to put this in you original source file. If everything is global, then you could probably just stick this at the end.

use strict;
use warnings;

require('YIKES.pl');

use Devel::Symdump;
use Data::Dumper;

my @array = Devel::Symdump->scalars('main');
print Dumper \@array;
[download]

Update: You could also have the script above require the original script, and since the vars are global it should work.(Code Updated)