$uid = 5674; ${'msg' . $uid } = ...; #### push @uid, 5674; $msgs{ $uid[ -1 ] } = ...; #### @ordered = @msgs{ @uid };