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

    use Data::Dumper;

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

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