Select Code to Download

use strict;
use warnings;
...
   @{ pretendFetch() };

print Data::Dumper->Dump([\%service_id], [q{*service_id}]);

%service_id = (
                '1' => {
...
                         'stop_reference' => '6200249240'
                       }
              );