my @inf=<>;

print @inf;

my @srt = sort {
                $n1 = ($a =~ /.*\{(\S+)\}/)[0];
                $n2 = ($b =~ /.*\{(\S+)\}/)[0];
                $n1 <=> $n2;
        } @inf;

print @srt;