use strict;
use warnings;
my @XYZ = (
     '458-43-0764',
     '453-45-3214',
     '462-63-4878',
     '453-99-0002',
     '462-75-5714',
     '631-03-6456',
     '466-91-7461',
     '467-17-2570',
     '454-69-1673',
     '258-61-1036',
);
push @XYZ, '111-22-3333';
local $, = "\n"; # Separate fields in output
print @XYZ;