#!/usr/bin/perl

use warnings;
use strict;

my @array = ();

while (<DATA>) {
    chomp;
    push @array, $_;
}

@array = sort {
    substr($a,18) cmp substr($b,18)
} @array;

foreach (@array) {
    print $_, "\n";
}

__DATA__
Types;5G1xx;Attrs;ipNetToMediaType
Types;5G1xx;Attrs;MAC_ADDR_OID
Types;5G1xx;Attrs;sysObjectID
Types;5G1xx;Attrs;ipForwarding
Types;5G1xx;Attrs;EtherOutColls

##</code><code>##

Types;5G1xx;Attrs;EtherOutColls
Types;5G1xx;Attrs;ipForwarding
Types;5G1xx;Attrs;ipNetToMediaType
Types;5G1xx;Attrs;MAC_ADDR_OID
Types;5G1xx;Attrs;sysObjectID