#!/usr/bin/perl
use strict;
use warnings;

my $VAR1 = [
          {
            'sourceL' => 'spacecraft',
            'source' => 'MT',
            'targetL' => 'vaisseau spatial'
          }
        ];

for (@$VAR1) {
    print ucfirst $_->{targetL} ;
}