use strict;
use Data::Dumper;

my @jobs;
my $key;
my $value;

while (my $line = <DATA>){
   
    if ($line =~ /\<name\>(.*)\<\/name\>/){$key = $1;}
    if ($line =~ /\<time\>(.*)\<\/time\>/){$value=$1;}
    
    if ($key and $value){push @jobs, {$key=>$value}; $key = undef;  $value = undef;}

}

print Dumper(\@jobs);


__DATA__
<mainprofile>
    <job>
        <name>myjob1</name>
        <time>14:30</time>
        <dist>lend</dist>
    </job>
    <job>
        <name>myjob2</name>
        <time>14:33</time>
        <dist>fin</dist>
    </job>
</mainprofile>