#!/usr/bin/perl -w
 
use strict;

my @labels = qw(B0001R B1001R B4356);
for my $label (sort @labels) {
         print "$label\n";
}