unshift2

#!/usr/bin/env perl

use strict;

## Creamos una array vacio

my @array;

## Definimos una variable de cadena

my $variable = "Hola";

## Añadimos el contenido de la cadena al array

unshift(@array,$variable);
unshift(@array,"Mundo"); # Añadimos Mundo al array
## Lo imprimimos

print "@array\n";