use strict ;
use Data::Dumper ;

my $was = '=' ;
my $wieoft = 10 ;

my @array_was_wieoft = ( ( $was ) x $wieoft ) ;

print Dumper( \@array_was_wieoft ) ;