use strict;
use warnings;
use vars( @list0, @list1, @list2 );

sub DoSomething()
{
    #do something here
 
    push @list0, somelist;
    push @list1, somelist;
    push @list2, somelist;
}

#main program
DoSomething();