#!/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";