comment exporter une variable ou un tableau d'une sous routine vers le programme principal ?

j'utilise la sous routine suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
sub evenement_proc
{
my $ho_name=$_[0];
my @evenement_sql="";
@evenement_sql=qx{echo "set heading off;\n select distinct(v_job) from mc_event_base where ho_name in '$ho_name' and v_job is
 not null;" | sqlplus -s $USER_ORA/$PASSWD_ORA\@$ORACLE_SID} ;
chomp @evenement_sql;
}
hors le tableau @evenement_sql n'est pas présent dans le programme principal, quelqu'un a t'il une idée ??