$ perl  subdiscard.pl
$VAR1 = [
          'this',
          'that',
          300000,
          'something',
          'else'
        ];
$VAR2 = [
          'this',
          'that',
          125638,
          'something',
          'else'
        ];
$VAR3 = [
          'this',
          'that',
          12563,
          'something',
          'else'
        ];