unshift

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

## Lo imprimimos

print "@array\n";