$ perl -e '
> use strict;
> use warnings;
> my $in =
> "a 123
> a 125
> b 127
> a 129
> a 130
> b 131
> a 132
> b 133";
>
> my @a = grep /a/, split /\n/, $in;
> print shift @a, " => $_\n" for grep /b/, split /\n/, $in;
> '
a 123 => b 127
a 125 => b 131
a 129 => b 133

##</code><code>##

$ perl -e '
> use strict;
> use warnings;
> my $in =
> "a 123
> a 125
> b 131
> a 130
> b 127
> a 129
> a 132
> b 133";
>
> my @a = sort grep /a/, split /\n/, $in;
> print shift @a, " => $_\n" for sort grep /b/, split /\n/, $in;
> '
a 123 => b 127
a 125 => b 131
a 129 => b 133