tie $status, 'Status', qw( - + | + );