use strict;
use Data::Dumper;

   my $config;
 
  while (<DATA>) {
     chomp;
     my ($key, $variable)= ( $_ =~ /<(\w+?)>([^<]*)/);
     	if ($key =~ m/JOBID/){
     		push (@{$config->{JOBID}},$variable);
     	}else{
     		$config->{$key} = $variable;
     	}
   }
   close FILE;
   print Dumper $config;

__DATA__
<PROJECT_ID>12345</PROJECT_ID>
<JOBID>101</JOBID>
<JOBID>102</JOBID>
<JOBID>103</JOBID>
<TYPE1>add</TYPE1>
<FILE1>/tmp/file_data_gros</FILE1>
<JOBID>102</JOBID>
<TYPE2>delete</TYPE2>
<FILE2>/tmp/file_myvalues</FILE2>


##</code><code>##

$VAR1 = {
          'JOBID' => [
                       '101',
                       '102',
                       '103',
                       '102'
                     ],
          'FILE2' => '/tmp/file_myvalues',
          'TYPE2' => 'delete',
          'FILE1' => '/tmp/file_data_gros',
          'TYPE1' => 'add',
          'PROJECT_ID' => '12345'
        };