$VAR1 = [
          undef,
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          'foo bar'
        ];
$VAR1 = [
          undef,
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          ${\$VAR1->[0]},
          'foo bar'
        ];

##</code><code>##

#!/usr/bin/perl -w
    use strict;

    use Data::Dumper;

    my @comps;
    $comps[10] = "foo bar";
    $comps[0] = "foo bar";
    $comps[4] = "foo bar";
    print Dumper \@comps;

    my $base = "Foo bar";
    print Dumper \@comps;

outputs: 

$VAR1 = [
          'foo bar',
          undef,
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          'foo bar',
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          'foo bar'
        ];
$VAR1 = [
          'foo bar',
          undef,
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          'foo bar',
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          ${\$VAR1->[1]},
          'foo bar'
        ];