my @base = qw/foo bar/;

my @redup;
push @redup, @base for ( 1..5 );  # qw/foo bar foo bar .../

# or
for ( @base ) { push @redup, $_ for (1..5) } # qw/foo foo ... bar bar .../

# or 
my $redup = join " ", map { "@base" } (1..5) # "foo bar foo bar ..."

# etc.